home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Scene 96
/
Scene 96 International Edition (Zyklop Software) (Disc 1) (1997).iso
/
emulator
/
c64s
/
testdisk.d64
/
basic-demo
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
1996-02-18
|
778b
|
22 lines
5 A=PEEK(53280):B=PEEK(53281):C=PEEK(646)
10 CLS:COLOR 0,0,14:BLINE 2
20 BDATA 1,3,14,11,6,9,2,4,10,7,6,6
30 LOCATE 8,2
40 PRINT "*** UNIVERSAL-BASIC ***"
50 BORDER ON:BEEP
60 LOCATE 6,5:COLOR 0,0,15
70 PRINT "(C) 9999 BY M. TSCHEREPANOW"
80 LOCATE 9,5
90 FOR T=9868TO1993 STEP -125:PRINTT:LOCATE 9,5:NEXT
100 COLOR 0,0,1:LOCATE8,2:PRINT"*** UNIVERSAL-BASIC ***"
110 FOR I=1TO5:BDATA 1,3,14,11,6,9,2,4,10,7,10,10:PAUSE 3
120 BDATA 1,3,14,11,6,9,2,4,10,7,14,14:PAUSE 3:NEXT
130 LOCATE 8,2:PRINT" ":FOR T=2TO5:BLINE T:NEXT
140 LOCATE 6,5:PRINT" "
150 FOR T=6TO23:BLINE T:NEXT
160 FOR T=23TO1 STEP-1:BLINE T:NEXT
170 CLS:COLOR 0,0,C:LOCATE 8,1: PRINT "*** UNIVERSAL-BASIC ***":BEEP
180 LOCATE 0,3:BLINE 2:PAUSE 0:BLINE 3:PAUSE 0 :PRINT"READY.":BEEP:LOCATE 0,2
190 FOR I=4TO23:BLINE I:NEXT I
200 BORDER OFF:COLOR A,B,C